home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / System Utilities / Apple Utilities⁄Updates / ASIP5.0.2 Updater Download / Update AppleShare IP 5.0.2 / Print Server Items / AppleShare IP Print Server / AppleShare IP Print Server.rsrc / PS_-8130 < prev    next >
Text File  |  1997-09-17  |  357b  |  24 lines
  1. %%?BeginFontListQuery
  2. save/sv exch def
  3. /languagelevel where
  4. {
  5. pop languagelevel 2 ge
  6. }{
  7. false
  8. }ifelse
  9. {
  10. (*){cvn ==}bind 128 string/Font resourceforall
  11. }{
  12. FontDirectory{pop ==}bind forall
  13. /filenameforall where
  14. {
  15. pop
  16. (fonts/*)
  17. {dup length 6 sub 6 exch getinterval cvn ==}bind
  18. 128 string filenameforall
  19. }if
  20. }ifelse
  21. (*)=
  22. sv restore
  23. %%?EndFontListQuery: Unknown
  24.